COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αβxcomment CLT - BLANKS
C00006 00003	αβxcomment CLT - MKPNTR
C00008 ENDMK
C⊗;
αβxcomment CLT - BLANKS
Add a blank line to the attach buffer.
⊗↔
αXDEFINE BLANKS⊗↔
α∞αLαEβ⊗↔α∞αA⊗↑α+αA
αβ⊗↓

αβxcomment CLT - COL???
Look for the next file with extenstion ??? on LSPCLT and add it to attach buffer.
???=BLA refers to blank extensions
⊗↔

αXDEFINE COLDIR⊗↔
αXSTOPONE⊗↔
αXF DIR LSPCLT⊗↔α+αAαβ⊗↓

αXDEFINE COLDO⊗↔
αXSTOPONE⊗↔
αXF DO  LSPCLT⊗↔α+αAαβ⊗↓

αXDEFINE COLCMD⊗↔
αXSTOPONE⊗↔
αXF CMD LSPCLT⊗↔α+αAαβ⊗↓

αXDEFINE COLBLA⊗↔
αXSTOPONE⊗↔
αXF ∀∀∀∀∀∀     LSPCLT⊗↔α+αAαβ⊗↓

αXDEFINE COLPUB⊗↔
αXSTOPONE⊗↔
αXF PUB LSPCLT⊗↔α+αAαβ⊗↓

αXDEFINE COLXGP⊗↔
αXSTOPONE⊗↔
αXF XGP LSPCLT⊗↔α+αAαβ⊗↓

αXDEFINE COLOLD⊗↔
αXSTOPONE⊗↔
αXF OLD LSPCLT⊗↔α+αAαβ⊗↓

αβxcomment CLT - ???PAG
Makes page of all files with extenstion ??? on LSPCLT 
???=BLA refers to blank extensions
⊗↔

αXDEFINE DIRPAG⊗↔
αXSTOPALL⊗↔
α2αPα+α3αAα2αZBLANKS⊗↔
αLα∞αZCOLDIR⊗↔
α2αZBLANKS⊗↔
α2αPα∞αZCOLDO⊗↔
α2αZBLANKS⊗↔
α2αPα∞αZCOLCMD⊗↔
α2αPαXM⊗↔αβ⊗↔
;Directory and command files on [LSP,CLT]⊗↔α⊗↔
αZMKPNTR⊗↔
α.αβ⊗↓

αXDEFINE BLAPAG⊗↔
α2αPα∞αZCOLBLA⊗↔
α3αPαXM⊗↔
αβ⊗↔;Text files on [LSP,CLT]α⊗↔
αLα+αAα2αZBLANKS⊗↔
αLαZSORTCH⊗↔
α1αZBLANKS⊗↔
αLαFLCOMAP ⊗↔
α+αAα2αZBLANKS⊗↔
αLαEαZMKPNTR⊗↔
α.αβ⊗↓

αXDEFINE PUBPAG⊗↔
α2αPα∞αZCOLPUB⊗↔
α3αPαXM⊗↔αβ⊗↔
;Pubbing files on [LSP,CLT]α⊗↔
αLα+αAα2αZBLANKS⊗↔
αLαFBKMAC ⊗↔
α+αAαLαFLSPMAC ⊗↔
α+αAα1αZBLANKS⊗↔
αLαFLSPDOC ⊗↔
α+αAαLαFLSPDC1 ⊗↔
α+αAα1αZBLANKS⊗↔
αLαFLSPEXP ⊗↔
α+αAα2αZBLANKS⊗↔
αLαZSORTCH⊗↔
α2αZBLANKS⊗↔
αLαEαZMKPNTR⊗↔
α.αβ⊗↓

αXDEFINE XGPPAG⊗↔
α2αPα∞αZCOLXGP⊗↔
α3αPαXM⊗↔αβ⊗↔
;Xgp files on [LSP,CLT]⊗↔⊗↔α⊗↔
αZMKPNTR⊗↔
α.αβ⊗↓

αXDEFINE OLDPAG⊗↔
α2αPα∞αZCOLOLD⊗↔
α3αPαXM⊗↔αβ⊗↔
;Old files on [LSP,CLT]⊗↔⊗↔α⊗↔
αZMKPNTR⊗↔
α.αβ⊗↓

αXDEFINE SORTCH⊗↔
αLαFPREFAC ⊗↔
α+αAα1αZBLANKS⊗↔
αLαFREADIN ⊗↔
α+αAαLαFWRITIN ⊗↔
α+αAαLαFPROVIN ⊗↔
α+αAαLαFIMPURE ⊗↔
α+αAαLαFMACHIN ⊗↔
α+αAαLαFSEARCH ⊗↔
α+αAαLαFEXTEND ⊗↔
α+αAαLαFABSNTX ⊗↔
α+αAαLαFCOMPIL ⊗↔
α+αAαLαFCOMPUT ⊗↔
α+αAα1αZBLANKS⊗↔
αLαFLSPBIB ⊗↔
α+αA
αβ⊗↓


αXDEFINE MKDIR⊗↔
αZDIRPAG⊗↔
αZOLDPAG⊗↔
αZXGPPAG⊗↔
αZPUBPAG⊗↔
αZBLAPAG⊗↔
αXBURP⊗↔
αβ⊗↓
αβxcomment CLT - MKPNTR
Converts Directory listing to E pointer format.
⊗↔
αXDEFINE MKPNTR⊗↔
αLα∞αZPOINTR⊗↔
αLα∞αZBLADOT⊗↔
αLα∞αZBLABKT⊗↔
αLα∞αZDOTBKT⊗↔
αβ⊗↓

αβxcomment CLT - POINTR
Puts "."s "[]"s, and ","s in file reference
⊗↔
αXDEFINE POINTR⊗↔
αXSTOPONE⊗↔
αF LSPCLT ⊗↔α6α .α3α [α3α β,α3α ]⊗↔αβ⊗↓

αβxcomment CLT - BLABKT
Removes an occurrence of " ["
⊗↔
αXDEFINE BLABKT⊗↔
αXSTOPONE⊗↔
αF [α\[⊗↔⊗↑αβ⊗↓

αβxcomment CLT - BLADOT
Removes an occurrence of " ."
⊗↔
αXDEFINE BLADOT⊗↔
αXSTOPONE⊗↔
αF .α\.⊗↔⊗↑αβ⊗↓

αβxcomment CLT - DOTBKT
Removes an occurrence of ".[ " 
⊗↔
αXDEFINE DOTBKT⊗↔
αXSTOPONE⊗↔
αF.[α\[⊗↔⊗↑αβ⊗↓